10 .TAB(1,4,7;IN HYPRA-ASS: .LI 1,4,7
20 .STOP$C000;IN HYPRA-ASS: .BA $C000
30 ;*************************************************
40 ; 16-BITSCHLEIFE ANWENDUNG : BITMAP-LOESCHEN
50 ;*************************************************
60 ;
70 .REMSTART=$2000;IN HYPRA-ASS: .EQ START = $2000
80 .REMENDE=$3F3F;   -"-        .EQ ENDE  = $3F3F
90 .[143]WERT=$00;   -"-         .EQ WERT = $00
100 ;
110 ;---------- INITIALISIERUNG -----------
120 ;
130  FOR#<(START);LSB STARTADRESSE
140  INPUT##>(START);MSB STARTADRESSE
150  NEXT$FA;IN VEKTOR $FA/FB SCHREIBEN
160  GOTO$FB
170 ;
180  FOR#<(ENDE);LSB ENDADRESSE+1
190  INPUT##>(ENDE);MSB ENDADRESSE
200  NEXT$FC;IN VEKTOR $FC/FD SCHREIBEN
210  GOTO$FD
220 ;
230  FOR#WERT;EINZUSCHREIBENDEN WERT
240  NEXT$FE;NACH $FE SCHREIBEN
250 ;
260  INPUT##$00;INDEX AUF NULL STELLEN
270 ;
280 ;---------- JOB AUSFUEHREN -------------
290 ;
300 LABEL FOR$FE;WERT LADEN
310  NEXT($FA),Y;UND EINTRAGEN
320 ;
330 ;--------- STEUERTEIL ------------------
340 ;
350  RUN$FA;LSB START NUN ALS ZAEHLER ERHOEHEN
360  USRMARKE;FALLS KEIN UEBERLAUF WEITER
370  RUN$FB;SONST MSB EBENFALLS ERHOEHEN
380 MARKE FOR$FA;VERGLEICH DES LSB
390  INPUT$FC;MIT LSB DER ENDADRESSE (FLAGGEN SETZEN)
400  FOR$FB;VOM MSB DES ZAEHLERS
410  WAIT$FD;WIRD DAS MSB DER ENDADRESSE SUBTRAHIERT
420  INTLABEL;ZURUECK ZUM JOB WENN ZAEHLER < ENDADRESSE
430 ;
440 ;-------- AUSGANG ---------------------
450 ;
460  OR;SONST PROGRAMMENDE
470 ;
480 .TOU,1,4,7;IN HYPRA-ASS: .SY 1,4,7